home *** CD-ROM | disk | FTP | other *** search
/ Advanced Placement Companion: Precalculus / Advanced Placement Companion: Precalculus.iso / pc / M_DIR / 12-03107.DIR / 00015_Button Lingo.ls < prev    next >
Encoding:
Text File  |  1998-03-12  |  474 b   |  19 lines
  1. on startMovie
  2.   global gstop
  3.   set gstop to 0
  4. end
  5.  
  6. on button
  7.   set thisOne to the clickOn
  8.   set the locH of sprite thisOne to the locH of sprite thisOne + 2
  9.   set the locV of sprite thisOne to the locV of sprite thisOne + 2
  10.   updateStage()
  11.   puppetSound("click")
  12.   updateStage()
  13.   repeat while soundBusy(1)
  14.   end repeat
  15.   set the locH of sprite thisOne to the locH of sprite thisOne - 2
  16.   set the locV of sprite thisOne to the locV of sprite thisOne - 2
  17.   updateStage()
  18. end
  19.